home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio / Ham Radio CD-ROM (Emerald Software) (1995).ISO / misc / utilitys / prop.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  6.4 KB  |  175 lines
  1. 2  GOSUB 500
  2. 10  PRINT:PRINT"    VHF/UHF PROPOGATION PROGRAM"
  3. 12  PRINT:PRINT"         V 1.0 1984 WA9GFR"
  4. 14  PRINT:PRINT"        MODIFIED FOR IBM PC"
  5. 16  PRINT:PRINT"              WA2TIF"
  6. 30  PRINT:PRINT
  7. 50  PRINT"     PROGRAM WILL CALCULATE EXPECTED RANGES FOR VHF(100-175 MHZ)"
  8. 52  PRINT"     AND UHF (225-500 MHZ) FREQUENCIES. APPROXIMATE DYNAMIC RANGE IS"
  9. 54  PRINT"     FOR PATH LOSSES OF 125 TO 200 DB, COVERING MOST APPLICATIONS FOR"
  10. 56  PRINT"     RCVR SENS .5 TO 10 MICROVOLTS AND XMTR POWER OF 1 TO 1000 WATTS."
  11. 58  PRINT"     PROGRAM COVERS ANT HEIGHTS FROM 25 FT TO 5000 FT."
  12. 60  PRINT:PRINT"     PROGRAM DEFAULTS TO RCVR SENS AND XMTR PWR IN DBM. WOULD"
  13. 62  PRINT"     YOU RATHER WORK WITH MICROVOLTS AND WATTS? (Y=YES)":INPUT D$
  14. 100  CLS:PRINT "PRESS (V) FOR VHF OR (U) FOR UHF":PRINT
  15. 102  INPUT F$
  16. 104  IF F$ ="V" THEN PRINT "ENTERING VHF DATA":GOSUB 2000:GOTO 200
  17. 106  IF F$ ="U" THEN PRINT "ENTERING UHF DATA":GOSUB 3000:GOTO 200
  18. 108  GOTO 102
  19. 199  :
  20. 200  PRINT:GOSUB 600: REM SELECT FREQUENCY
  21. 205  PRINT: GOSUB 700: REM SELECT XMTR PWR & RCVR SENS
  22. 210  PRINT: GOSUB 900: REM SELECT ANT GAINS
  23. 215  PRINT: GOSUB 800: REM SELECT ANT HEIGHTS
  24. 220  :
  25. 300  CLS:PRINT F$"HF PROPOGATION: FREQ="F"MHZ
  26. 302  PRINT:PRINT"TRANSMITTER POWER OUT:"PD;TAB(30);"DBM"
  27. 304  PRINT TAB(22)PW;TAB(30)"WATTS
  28. 306  PRINT:PRINT"RECEIVER SENSITIVITY: "RD;TAB(30)"DBM"
  29. 308  PRINT TAB(22)RM;TAB(30)"UV"
  30. 310  PRINT:PRINT"LOWER ANTENNA:"GL"DBI @"H1"FT
  31. 312  PRINT:PRINT"UPPER ANTENNA:"GU"DBI @"H2"FT
  32. 314  PRINT:PRINT"COAXIAL LINE LOSSES: "LL"DB
  33. 320  PL=PD-RD+GU+GL-LL
  34. 322  DF=PL-37-20*LOG(F)/LOG(10)
  35. 324  DF=10^(DF/20):DF=INT(DF+0.5)
  36. 326  PRINT:PRINT PL"DB PATH"
  37. 328  PRINT"FREE PATH IN SPACE ="DF"MILES"
  38. 350  PL=PL-20*LOG(F/F1)/LOG(10):PRINT
  39. 352  IF PL<P1 THEN PRINT"RANGE NOT IN PROGRAM: <"S1"MILES"
  40. 354  IF PL<P1 THEN PRINT TAB(23)"<"D1"(NAUT MI)":GOTO 400
  41. 356  IF PL >P5 THEN PRINT "RANGE NOT IN PROGRAM: >"S5"MILES"
  42. 358  IF PL >P5 THEN PRINT TAB(23) ">"D5"(NAUT MI)":GOTO 400
  43. 360  IF PL>=P1 AND PL<P2 THEN DN=D1+(D2-D1)*(PL-P1)/(P2-P1)
  44. 362  IF PL>=P2 AND PL<P3 THEN DN=D2+(D3-D2)*(PL-P2)/(P3-P2)
  45. 364  IF PL>=P3 AND PL<P4 THEN DN=D3+(D4-D3)*(PL-P3)/(P4-P3)
  46. 366  IF PL>=P4 AND PL<P5 THEN DN=D4+(D5-D4)*(PL-P4)/(P5-P4)
  47. 368  DS=INT(DN*1.151+0.5):DN=INT(DN+0.5)
  48. 370  PRINT"MAXIMUM EXPECTED RANGE: "DS"MILES"
  49. 372  PRINT TAB(24) DN"(NAUT MI)"
  50. 400  PRINT:PRINT:PRINT LL$
  51. 402  PRINT" G=MODIFY ANT GAINS       R=RUN AGAIN"
  52. 404  PRINT"H=MODIFY ANT HEIGHTS
  53. 406  PRINT "X=MODIFY R/T SENS/PWR    Q=QUIT
  54. 408  PRINT "F= NEW FREQ (SAME BAND)";
  55. 410  INPUT A$
  56. 412  IF A$=" "THEN 410
  57. 414  PRINT:PRINT
  58. 415  IF A$="R" THEN 100
  59. 416  IF A$="Q" THEN 4000
  60. 418  IF A$="G" THEN GOSUB 900:GOTO 300
  61. 420  IF A$="H" THEN GOSUB 800:GOTO 300
  62. 422  IF A$="X" THEN GOSUB 700:GOTO 300
  63. 424  IF A$="F" THEN GOSUB 600:GOTO 300
  64. 426  GOTO 410
  65. 500  D$="N":DIM H$(7,7):DIM H(7)
  66. 502  H(1)=25:H(2)=50:H(3)=100:H(4)=500:H(5)=1000:H(6)=2000
  67. 504  H(7)=5000
  68. 508  LL$=" --------------------------------------"
  69. 510  RETURN
  70. 600  PRINT"FREQUENCY IN MHZ  ("FL"-"FU")";:INPUT F
  71. 602  IF F<FL OR F>FU THEN 600
  72. 604  RETURN
  73. 700  IF D$="Y" THEN INPUT "INPUT XMTR POWER (IN WATTS";PW:GOTO 710
  74. 702  INPUT"INPUT XMTR POWER (IN DBM)";PD
  75. 704  PW=(PD-30)/10:PW=10^PW
  76. 706  IF PW>=1 THEN PW=INT(PW*10+0.5)/10:GOTO 720
  77. 708  IF PW<1 THEN PW= INT(PW*1000+0.5)/1000:GOTO 720
  78. 710  PD=10*LOG(PW)/LOG(10)+30:PD=INT(PD*10+0.5)/10
  79. 720  IF D$="Y" THEN INPUT"RCVR SENSITIVITY (IN MICRO-VOLTS)";RM:GOTO 730
  80. 722  INPUT"RCVR SENSITIVITY(IN DBM)";RD
  81. 723  IF RD>0 THEN PRINT"<1 MW IS A NEGATIVE NUMBER":GOTO 722
  82. 724  RM=(RD+107)/20:RM=10^RM
  83. 726  IF RM>=1 THEN RM =INT(RM*10+0.5)/10:GOTO 740
  84. 728  IF RM<1 THEN RM=INT(RM*100+0.5)/100:GOTO 740
  85. 730  RD=20*LOG(RM)/LOG(10)-107:RD=INT(RD*10+0.5)/10
  86. 740  RETURN
  87. 800  REM ANTENNA HEIGHTS
  88. 802  PRINT CL$"CHOOSE ANTENNA HEIGHTS BY SELECTING"
  89. 804  PRINT"NUMBERS FROM THE FOLLOWING MENUE":PRINT:PRINT
  90. 806  PRINT"1 =   25'    6 =   2000'"
  91. 808  PRINT"2 =   50     7 =   5000'"
  92. 810  PRINT"3 =  100'"
  93. 812  PRINT"4 =  500`"
  94. 814  PRINT"5 = 1000'"
  95. 820  PRINT:PRINT
  96. 830  INPUT"SELECT HEIGHT OF LOWER ANTENNA";H1
  97. 832  INPUT"SELRCT HEIGHT OF UPPER ANTENNA";H2
  98. 834  IF H1<1 OR H2<1 OR H1>7 OR H2>7 THEN PRINT"NOT IN MENUE":GOTO 830
  99. 836  IF H1>H2 THEN PRINT"LOWER AND UPPER REVERSED":GOTO 830
  100. 840  H$=H$(H1,H2):H1=H(H1):H2=H(H2)
  101. 850  P1=VAL(MID$(H$,1,3)):D1=VAL(MID$(H$,4,3))
  102. 852  P2=VAL(MID$(H$,7,3)):D2=VAL(MID$(H$,10,3))
  103. 854  P3=VAL(MID$(H$,13,3)):D3=VAL(MID$(H$,16,3))
  104. 856  P4=VAL(MID$(H$,19,3)):D4=VAL(MID$(H$,22,3))
  105. 858  P5=VAL(MID$(H$,25,3)): D5=VAL(MID$(H$,28,3))
  106. 860  S1=INT(D1*1.151+0.5)
  107. 862  S5=INT(D5*1.151+0.5)
  108. 870  PRINT CL$:RETURN
  109. 900  INPUT"GAIN OF LOWER ANTENNA(IN DBI)";GL
  110. 902  INPUT"GAIN OF UPPER ANTENNA(IN DBI)";GU
  111. 904  INPUT"COAXIAL LINE LOSSES(IN DB)";LL
  112. 906  RETURN
  113. 2000  F1=125:FL=100:FU=175: REM VHF DATA
  114. 2005  H$(1,1)="140010160025170035176050225340
  115. 2010  H$(1,2)="135010160030170046175065225360
  116. 2015  H$(1,3)="130010160037170055175035225385
  117. 2020  H$(1,4)="117010162060170075175100225405
  118. 2025  H$(1,5)="113010165070169085173100225415
  119. 2030  H$(1,6)="105010158080170100175120225425
  120. 2035  H$(1,7)="100010140085170130177160218400
  121. 2080  H$( 2, 2)="125010155030165045170060210300
  122. 2085  H$(2,3)="120010150032165050175105210310"
  123. 2090  H$( 2, 4)="110010158060167080183180205300
  124. 2095  H$( 2, 5)="105010160075168100180170207320
  125. 2100  H$( 2, 6)="110030163090170120183200208340
  126. 2105  H$( 2, 7)="115050133085162125168140210370
  127. 2150  H$( 3, 3)="125015155045166065174120203280
  128. 2155  H$( 3, 4)="115020152060163080177160203300
  129. 2160  H$( 3, 5)="110020152070165100195260210355
  130. 2165  H$( 3, 6)="110030150080164110195275209360
  131. 2170  H$( 3, 7)="115060140100164135196300211400
  132. 2214  H$( 4, 4)="110030150080159095165120204330
  133. 2215  H$( 4, 4)="110030150080159095165120204330
  134. 2220  H$( 4, 5)="115045151090160110170155204340
  135. 2225  H$( 4, 6)="116060155110161125176200204350
  136. 2230  H$( 4, 7)="123100156145165165190295210420
  137. 2275  H$( 5, 5)="116065144090155110165140203340
  138. 2280  H$( 5, 6)="120080145110160135170180204360
  139. 2285  H$( 5, 7)="125120145140158160165180203380
  140. 2330  H$( 6, 6)="125100150130160150168180200350
  141. 2335  H$( 6, 7)="122130149160160180170220200375
  142. 2380  H$( 7, 7)="125165150195160210169240200400
  143. 2390  RETURN
  144. 3000  F1=300:FL=225:FU=500:REM UHF DATA
  145. 3005  H$(1,1)="142010170030178050182100225315
  146. 3010  H$(1,2)="136010150020170035178060220300
  147. 3015  H$(1,3)="130010150025170045176060215275
  148. 3020  H$(1,4)="125020168055176070185125210260
  149. 3025  H$(1,5)="120020165065175080185135210270
  150. 3030  H$(1,6)="127040145060170085177100215305
  151. 3035  H$(1,7)="127060140080174120178130210305
  152. 3080  H$(2,2)="132010155030166040175060215280
  153. 3085  H$(2,3)="125010150030164045175070213280
  154. 3090  H$(2,4)="120020165060170070175090210270
  155. 3095  H$(2,5)="120030165070171080175096210280
  156. 3100  H$(2,6)="120040137060167090173100210290
  157. 3105  H$(2,7)="125070140090170125176135210320
  158. 3150  H$(3,3)="120010140025160045170060205240
  159. 3155  H$(3,4)="118020160060170075183140210280
  160. 3160  H$(3,5)="120030160070167080173100205260
  161. 3165  H$(3,6)="122050155080168100175120210300
  162. 3170  H$(3,7)="130080155110170130175145210325
  163. 3215  H$(4,4)="120040155070165085175115205265
  164. 3220  H$(4,5)="125055153080167100175125210305
  165. 3225  H$(4,6)="125072157100170120180160210315
  166. 3230  H$(4,7)="128105160135170150178180210345
  167. 3275  H$(5,5)="124065160100171120177140210310
  168. 3280  H$(5,6)="127085160115170130178160206300
  169. 3285  H$(5,7)="130115160144170160177180210350
  170. 3330  H$(6,6)="128105149120166140176166210340
  171. 3335  H$(6,7)="132135159160170175177195210360
  172. 3380  H$(7,7)="132165165200175220180240205363
  173. 3610  RETURN
  174. 4000  END
  175.